$ambi=$ARGV[0];
chomp($ambi);
open(BUFF,"gunzip -c $ambi |") or die "no $ambi file found\n";
while(<BUFF>)
{
	chomp($_);
	@a=split(" ",$_);
	#print "test $a[1]\n";
	$hash{$a[1]}=1;
}
$input_dos=$ARGV[1];
chomp($input_dos);
$out_dos=$ARGV[2];
chomp($out_dos);
open(BUFF,"$input_dos") or die "no $input_dos file found\n";
open(WRBUFF,">$out_dos ") or die "no $out_dos file found\n";
while(<BUFF>)
{
	chomp($_);
        @a=split(" ",$_);
        if(exists($hash{$a[1]}))
	{
		@dos = split(" ",$_);
			
	}
}
